home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / PDHFIC_2.5 / ARexx / LoadDT.zxam next >
Text File  |  1999-01-04  |  639b  |  29 lines
  1. /* Load *any* Datatypes image into ZXAM as a SCR!   Needs PDHFIC 2.0 */
  2. /* (c) 1998 Chris Young and Unsatisfactory Software                  */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS PDHFIC
  6.  
  7. if ~show(ports,ZXAM_REXX) then do
  8.     ADDRESS COMMAND 'requestchoice >nil: "LoadDT.zxam" "ZXAM is not running!" "Oops."'
  9.     exit
  10. end
  11.  
  12. if ~show(ports,'PDHFIC') then do
  13.     ADDRESS COMMAND 'requestchoice >nil: "LoadDT.zxam" "PDHFIC is not running!" "Oops."'
  14.     exit
  15. end
  16.  
  17. SELECTSOURCE
  18.  
  19. if rc>0 then exit
  20.  
  21. QUICKCONVERT '"' || RESULT || '" "T:LoadDT.tmp"'
  22.  
  23. scrfile=ZXAMppLoadFile('T:LoadDT.tmp')
  24.  
  25. dummy = ZXAMPutMem(16384,scrfile)
  26.  
  27. ADDRESS COMMAND 'delete >nil: T:LoadDT.tmp'
  28.  
  29.